1.ПОСТАНОВКА ЗАДАЧІ. Одне число потрібно ввести в алгебраїчній формі число 1 інше в показниковій число 2 . Потім число в показниковій формі перевести в алгебраїчну. Віднімаємо ці числа, та за допомогою оператора «case» даємо можливість користувачу вибрати форму представлення результату числа 3. 2. РОЗРОБКА СТРУКТУРИ ДАНИХ. №п(п Позначення Ім’я Тип Призначення, опис  1 r a дійсна Дійсна частина числа 3  2 k b дійсна уявна частина числа 3  3 a a дійсна Дійсна частина першого числа  4 b b дійсна Уявна частина першого числа  5 A1 a дійсна Дійсна частина другого числа  6 B1 b дійсна Уявна частина другого числа  7 M |M| дійсна Модуль другого числа  8 f f дійсна Кут другого числа  9 M1 |M| дійсна Модуль другого числа  10 g f символьна Кут другого числа   3.РОЗРОБКА АЛГОРИТМУ. H T T H T H T 10 4. РОЗРОБКА ПРОГРАМИ. program lab5; var r,k,a,b,a1,b1,M,f,m1,g:real; h:integer; begin writeln('vvedit dijsny chastuny pershoho chusla'); readln(a); writeln('vvedit yjavny chastuny pershoho chusla'); readln(b); writeln('vvedit modyl drygogo chusla'); readln(M); writeln('vvedit kyt f drygogo chusla'); readln(f); writeln('natusnit 1(2) dlja predstavlennja'); writeln('rezyltaty v pokaznukovij(alhebrajishnij) formi'); readln(h); a1:=M*cos(f); b1:=M*sin(f); r:=a-a1; k:=b-b1; case h of 1: begin m1:=sqrt(sqr(k)+sqr(r)); if r>=0 then g:=arctan(k/r); if (r<0) and (k<0) then g:=arctan(k/r)-pi; if (k>=0) and (r<0) then g:=arctan(k/r)+pi; Write('Z1-Z2=',m1:8:3,'*EXP('); If g<0 then Write ('-i*', Abs(g):8:3 ,')') else Write ('i*',(g):8:3,')') end; 2: begin if (k>0) then writeln('Z1-Z2=',r:8:3,'+i',k:8:3); if (k<0) then writeln('Z1-Z2=',r:8:3,'-i',abs(k):8:3) else writeln('Z1-Z2=',r:8:3); end; else writeln('pomulka '); end; readln; end. 5. ТЕСТУВАННЯ ТА НАЛАГОДЖЕННЯ.
Висновок: я засвоїв поняття комплексного числа( Z = a + jb),форм його подання, порядку виконання елементарних операцій з комплексними числами (додавання, віднімання, множення, ділення), набуття навиків програмування дій з комплексними числами, закріплення навиків застосування структурованих змінних. Ознайомився з оператором «case». Міністерство освіти і науки україни НУ «Львівська Політехніка» Кафедра інформатики ЛАБОРАТОРНА РОБОТА №5. ПРОГРАМУВАННЯ ЕЛЕМЕНТАРНИХ ОПЕРАЦІЙ З КОМПЛЕКСНИМИ ЧИСЛАМИ. Підготував студент групи РТ-12 Ковач Тарас